home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / UPCASE.ASM < prev    next >
Assembly Source File  |  1994-07-28  |  1KB  |  44 lines
  1. ;******************************************************************
  2. ;*                           UPCASE.ASM                           *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. MODEL TPASCAL
  8. LOCALS
  9. .DATA
  10.  EXTRN DosError:Word
  11. .CODE
  12.  Public Upcase,StUpCase
  13.  UpCase PROC Far char:Byte
  14.          MOV AX,6520H
  15.          MOV DL,Char
  16.          INT 21H
  17.          JC @@Error
  18.          SUB AX,AX
  19. @@Error: MOV DosError,AX
  20.          MOV AL,DL
  21.          Ret
  22.         endp
  23. StUpCase Proc Far S:DWord Returns Result:DWORD
  24.           Push DS
  25.           LDS BX,S
  26.           SUB CX,CX
  27.           MOV CL,[BX]
  28.           inc BX
  29.           MOV DX,BX
  30.           MOV AX,6521H
  31.           INT 21H
  32.           JC @@Error
  33.           XOR AX,AX
  34. @@Error:  MOV DosError,AX
  35.           LES DI,Result
  36.           MOV AL,CL
  37.           STOSB
  38.           MOV SI,DX
  39.           REP MOVSB
  40.           POP DS
  41.           RET
  42.         endp
  43. end
  44.